home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Phone Code (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  365b  |  12 lines
  1. 0 print"[147]"tab(14)"phone code"
  2. 1 rem =================================
  3. 2 rem    commodares problem #46-2 :
  4. 3 rem     phone code
  5. 4 rem    solution by
  6. 5 rem     judy groth
  7. 6 rem =================================
  8. 10 dimv(26):inputa$(1),a$(2),a$(3):v(26)=99
  9. 20 forkn=20to90step10:forlp=1to3:c=c+1:v(c)=kn+lp:ifc=17thenv(c)=77:lp=lp-1
  10. 30 next:next:fory=1to3:forx=65to90:ifa$(y)=chr$(x)thenprintv(x-64)
  11. 40 next:next
  12.